﻿<Serializable()> _
Public Class ErangoEdad

#Region "           Atributos                       "
    Private _idRangoEdad As Int32
    Private _rangoEdadDe As String
    Private _rangoEdadHasta As String
    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32

    '******* RptGerenciales xRangoEdad  *******'
    Private _cantidad As Int32
    Private _porcentaje As Decimal
#End Region

#Region "           Propiedades                     "
    Public Property idRangoEdad() As Int32
        Get
            Return _idRangoEdad
        End Get
        Set(ByVal value As Int32)
            _idRangoEdad = value
        End Set
    End Property
    Public Property rangoEdadDe() As String
        Get
            Return _rangoEdadDe
        End Get
        Set(ByVal value As String)
            _rangoEdadDe = value
        End Set
    End Property
    Public Property rangoEdadHasta() As String
        Get
            Return _rangoEdadHasta
        End Get
        Set(ByVal value As String)
            _rangoEdadHasta = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property

    '******* RptGerenciales xRangoEdad  *******'
    Public Property cantidad() As Int32
        Get
            Return _cantidad
        End Get
        Set(ByVal value As Int32)
            _cantidad = value
        End Set
    End Property
    Public Property porcentaje() As Decimal
        Get
            Return _porcentaje
        End Get
        Set(ByVal value As Decimal)
            _porcentaje = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property rangoEdad() As String
        Get
            Return rangoEdadDe & "  -  " & rangoEdadHasta
        End Get
    End Property
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idRangoEdad As Int32, ByVal RangoEdad As String)
        Me.idRangoEdad = idRangoEdad
        Me.rangoEdadDe = RangoEdad
    End Sub
    'Public Sub New(ByVal rangoEdadDe As String, ByVal rangoEdadHasta As String)
    '    Me.rangoEdadDe = rangoEdadDe
    '    Me.rangoEdadHasta = rangoEdadHasta
    'End Sub
    Public Sub New(ByVal idRangoEdad As Int32, ByVal rangoEdadDe As String, ByVal rangoEdadHasta As String)
        Me.idRangoEdad = idRangoEdad
        Me.rangoEdadDe = rangoEdadDe
        Me.rangoEdadHasta = rangoEdadHasta
    End Sub
    Public Sub New(ByVal idRangoEdad As Int32, ByVal rangoEdadDe As String, ByVal rangoEdadHasta As String, _
               ByVal estado As String)
        Me.idRangoEdad = idRangoEdad
        Me.rangoEdadDe = rangoEdadDe
        Me.rangoEdadHasta = rangoEdadHasta
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub

    '******* RptGerenciales xRangoEdad  *******'
    Public Sub New(ByVal idRangoEdad As Int32, ByVal rangoEdadDe As String, ByVal rangoEdadHasta As String, ByVal cantidad As Int32, ByVal porcentaje As Decimal)
        Me.idRangoEdad = idRangoEdad
        Me.rangoEdadDe = rangoEdadDe
        Me.rangoEdadHasta = rangoEdadHasta
        Me.cantidad = cantidad
        Me.porcentaje = porcentaje
    End Sub
#End Region

End Class
